home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / new terminal.v2 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  193 lines
  1. 1 REM  *** NEW PROTOCOL ***
  2. 2 REM  RELEASE 1: JUL 31 1984
  3. 3 REM  BY STEVE PUNTER
  4. 4 REM DIAL, DISK STUFF & PROMPTS ADDED    BY KIM PUGH
  5. 5 POKE53281,0:POKE53280,12:POKE646,1
  6. 6 PRINTCHR$(14);
  7. 9 GOSUB500
  8. 10 IFPEEK(49152)<>169THENLOAD"NEWTERM.ML",8,1
  9. 20 OPEN5,2,0,CHR$(6):POKE665,75:GET#5,A$:BS=255:DV=8
  10. 30 TY$="PSP"
  11. 40 PRINT"[147][207]PTION:         [194]LOCK [211]IZE ="BS""
  12. 42 PRINT"         [206]EW [208]UNTER      "
  13. 43 PRINT"   ----------------------"
  14. 50 PRINT"   1 - [212]ERMINAL [205]ODE"
  15. 60 PRINT"   2 - [210]ECEIVE A [198]ILE"
  16. 62 PRINT"   3 - [212]RANSMIT A [198]ILE"
  17. 63 PRINT"   4 - [195]HANGE [194]LOCK [211]IZE"
  18. 64 PRINT"   5 - [196]ISK [196]IRECTORY"
  19. 65 PRINT"   6 - [196]ISK [198]UNCTIONS:"DV
  20. 66 PRINT"   7 - [193]UTODIAL 1650"
  21. 67 PRINT"   8 - [197]ND PROGRAM"
  22. 68 PRINT"   9 - [199]RAPHICS [212]ERMINAL [205]ODE"
  23. 70 GETA$:IFA$=""THEN70
  24. 80 IFA$="3"THEN1000
  25. 90 IFA$="2"THEN2000
  26. 92 IFA$="4"THEN3000
  27. 93 IFA$="1"THENPRINT"[212]ERMINAL [205]ODE:":GOTO4000
  28. 94 IFA$="5"THEN700
  29. 95 IFA$="6"THEN800
  30. 96 IFA$="7"THEN5000
  31. 97 IFA$="8"THENGOTO120
  32. 98 IFA$="9"THEN7000
  33. 100 GOTO70
  34. 120 PRINT"[193]RE YOU SURE?"
  35. 130 GETA$
  36. 140 IFA$="Y"THENCLOSE5:SYS64738
  37. 150 IFA$="N"THEN40
  38. 160 GOTO130
  39. 500 FORI=828TO972:READKY:POKEI,KY:NEXT:RETURN
  40. 510 DATA169,1,32,195,255,169,36,141,240,3,169,48
  41. 520 DATA141,241,3,169,1,162,8,160,,32,186,255,169,2,162,240
  42. 530 DATA160,3,32,189,255,32,192,255,169,64,32,144,255,162,1,32
  43. 540 DATA198,255,32,144,255,32,207,255,32,207,255,32,207,255,32,207
  44. 550 DATA255,201,,240,58,32,204,255,32,228,255,201,32,208,3,32
  45. 560 DATA196,3,162,1,32,198,255,32,207,255,168,32,207,255,72,152
  46. 570 DATA170,104,32,205,189,169,32,32,210,255,32,207
  47. 580 DATA255,201,,208,8,169,13,32,210,255,76,115,3,32,210,255
  48. 590 DATA76,162,3,169,1,32,195,255,32,204,255,169,204,133,178,96
  49. 600 DATA32,228,255,201,32,208,249,96,0,
  50. 610 RETURN
  51. 700 PRINT"[147]";:SYS50856
  52. 710 PRINT"[208]RESS ANY KEY TO RETURN."
  53. 720 GETA$
  54. 730 IFA$<>""ANDFJTHEN800
  55. 735 IFA$<>""THEN40
  56. 740 GOTO720
  57. 800 FJ=0:PRINT"[147][196]ISK [198]UNCTION [205]ENU"
  58. 810 PRINT" 1 - [196]ISK [196]IRECTORY":PRINT" 2 - [196]ISK [211]TATUS"
  59. 820 PRINT" 3 - [196]ISK [195]OMMANDS":PRINT" 4 - [195]HANGE [196]ISK[160][196]EVICE #"
  60. 821 PRINT" 5 - [209]UIT"
  61. 830 GETA$
  62. 840 IFA$="1"THENFJ=1:GOTO700
  63. 845 IFA$="4"THEN890
  64. 850 IFA$="2"THEN900
  65. 860 IFA$="5"THENFJ=0:GOTO40
  66. 865 IFA$="3"THEN880
  67. 870 GOTO830
  68. 880 DH$="":DQ$="":DX$="":INPUT"[147][196]ISK [195]OMMAND";DH$:DH$=LEFT$(DH$,1)
  69. 882 IFDH$="N"THENINPUT"[196]ISK [206]AME,ID";DQ$,DX$:DQ$=DQ$+","+DX$
  70. 884 IFDH$<>"N"ANDDH$<>"I"ANDDH$<>"V"THENINPUT"[198]ILE NAME";DQ$
  71. 886 DH$=DH$+"0:"
  72. 888 OPEN15,DV8,15:PRINT#15,DH$DQ$:CLOSE15:GOTO900
  73. 890 PRINT"[147][208]RESENT [196]EVICE # IS:" DV
  74. 891 INPUT"[206]EW [196]EVICE #";DV$:DV=VAL(DV$)-8*(DV=0):IFDV<8ORDV>11THEN891
  75. 892 POKE50856+18,DV:GOTO800
  76. 900 OPEN15,DV,15:INPUT#15,E1,E$,E2,E3:CLOSE15:IFDC=1THENRETURN
  77. 910 PRINT"[147][211]TATUS: ";E1;E$;E2;E3
  78. 930 PRINT"[208]RESS ANY KEY TO RETURN."
  79. 940 GETA$:IFA$=""THEN940
  80. 950 GOTO800
  81. 1000 DC=0:PRINT"[208]ROGRAM [206]AME? ";:GOSUB6000:IFI$=""THEN4000
  82. 1005 GOSUB1040
  83. 1010 OPEN2,DV,12,I$
  84. 1020 PRINT:SYS49173:SYS49164:IFPEEK(512)=1THENCLOSE2:CLOSE15:GOSUB5510:GOTO4000
  85. 1030 SYS49173:POKE51224,BS:SYS49158:CLOSE2:CLOSE15:GOSUB5510:GOTO4000
  86. 1040 PRINT"[198]ILE [212]YPE:":PRINT"([208])ROGRAM, ([211])EQUENTIAL OR ([215])ORDPRO?":PRINT">";
  87. 1050 GETA$:IFA$=""THEN1050
  88. 1060 IFA$<>"P"ANDA$<>"S"ANDA$<>"W"THEN1050
  89. 1070 IFA$="P"ORA$="W"THENPOKE51227,1
  90. 1080 IFA$="S"THENPOKE51227,2
  91. 1090 PRINTA$
  92. 1093 PRINT"....[221]....[221]....[221]....[221]....[221]....[221]....[221]....[221][145][145]"
  93. 1097 RETURN
  94. 2000 PRINT"[211]AVE [193]S? ";:GOSUB6000:IFI$=""THEN4000
  95. 2003 PRINT"....[221]....[221]....[221]....[221]....[221]....[221]....[221]....[221][145][145]"
  96. 2010 SYS49173:SYS49161:IFPEEK(512)=1THEN4000
  97. 2020 T$=","+MID$(TY$,PEEK(51227),1)+",W"
  98. 2030 OPEN2,DV8,2,"@0:"+I$+T$:FORX=1TO1300:NEXTX:PRINT:SYS61310
  99. 2040 SYS49173:SYS49155:CLOSE2:CLOSE15:FORX=1TO1000:POKE668,PEEK(667)
  100. 2045 GOSUB5510:GOTO4000
  101. 3000 PRINT"[194]LOCK [211]IZE? ";:GOSUB6000:IFI$=""THEN40
  102. 3010 BS=VAL(I$):IFBS<40THENBS=40
  103. 3020 IFBS>255THENBS=255
  104. 3030 GOTO40
  105. 4000 PRINT
  106. 4010 SYS49173:SYS49167:GOTO40
  107. 5000 B1=56577:B2=56579
  108. 5020 POKEB2,32:POKEB1,0:PRINT"[147][194]ULLETIN [194]OARDS [193]VAILABLE[146]":GOSUB5350
  109. 5030 PRINT"[211]ELECT YOUR CHOICE: ":GOSUB5390
  110. 5040 PRINT"MOVE T-D SWITCH TO DATA":GOTO5070
  111. 5050 INPUT"[145]ENTER NUMBER TO DIAL <[195][210]>   [157][157][157]";D$
  112. 5055 IFD$=""THENPRINT"[145]";:GOTO5050
  113. 5060 RETURN
  114. 5070 POKEB1,32:T=60
  115. 5080 T=T-1:IFT<>0GOTO5080
  116. 5090 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1)
  117. 5100 PRINT""N$"[146]";:N=VAL(N$):IFN=0THENN=10
  118. 5110 GOSUB5150:NEXTX
  119. 5120 NT=NT+1:FORXB=1TO(40-D):PRINT" ";:NEXTXB
  120. 5130 PRINT"DIALING ENDED .... NUMBER OF TRIES";NT:GOTO5250
  121. 5140 PRINT"GOING TO TERMINAL MODE":GOTO4000
  122. 5150 FORN1=1TON
  123. 5160 POKEB1,0
  124. 5170 T=4
  125. 5180 T=T-1:IFT<>0THEN5180
  126. 5190 POKEB1,32:T=3
  127. 5200 T=T-1:IFT<>0THEN5200
  128. 5210 NEXTN1:T=30
  129. 5220 T=T-1:IFT<>0THEN5220
  130. 5230 RETURN
  131. 5240 END
  132. 5250 PRINT"[208]RESS ^ TO CHOOSE A NEW NUMBER"
  133. 5260 PRINT"IF CONNECTION MADE BELL SOUNDS 4 TIMES  BEFORE GOING TO TERMINAL MODE"
  134. 5270 FOR ZZ=600TO0STEP-1
  135. 5280 GETA$:IFA$="^"GOTO5020
  136. 5285 IFA$=""GOTO40
  137. 5290 IFPEEK(B1)=47THENGOSUB5510:GOTO5140
  138. 5310 NEXTZZ
  139. 5320 POKEB1,0:FORZZ=1TO1000:NEXT
  140. 5330 PRINT"[145][145][145][145][145]           [157][157][157][157][157][157][157][157][157][157][157][157][157]                 [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145]":GOTO5070
  141. 5340 FORZZ=1TO36:PRINT:NEXTZZ:RETURN
  142. 5350 PRINT"1.# 1 [194].[194].[211]. 2.******      3.******"
  143. 5360 PRINT"4.******     5.******      6.******
  144. 5370 [153]"7. (null)ONE OF THE ABOVE.
  145. 5380 RETURN
  146. 5390 NT=0
  147. 5400 PRINT"";
  148. 5410 GETB$:IFB$=""THEN5410
  149. 5411 IFVAL(B$)>7THEN5410
  150. 5412 IFVAL(B$)=0THEN5410
  151. 5413 IFB$=""THEN40
  152. 5414 IFB$<>""THENPRINT" "B$
  153. 5420 ONVAL(B$)GOTO5440,5450,5460,5470,5480,5490,5500
  154. 5425 GOTO5410
  155. 5440 D$="13147412514":RETURN
  156. 5450 D$="PHONE#2":RETURN
  157. 5460 D$="PHONE#3":RETURN
  158. 5470 D$="PHONE#4":RETURN
  159. 5480 D$="PHONE#5":RETURN
  160. 5490 D$="PHONE#6":RETURN
  161. 5500 GOTO5050
  162. 5510 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15
  163. 5520 FORL=1TO4:POKES+4,21:FORT=1TO600:NEXT:POKES+4,20:FORT=1TO100:NEXT:NEXT
  164. 5530 POKES+24,0:POKES+15,0:POKES+5,0:POKES+1,0:FORL=0TO24:POKES+L,0:NEXT
  165. 5535 IFPK=1THEN5550
  166. 5550 PRINT"[147]":POKE2023,0:PRINT:PRINT:PRINT:PK=1:RETURN
  167. 6000 I$=""
  168. 6010 PRINT" [146][157]";
  169. 6020 GETA$:IFA$=""THEN6020
  170. 6030 IFA$=CHR$(13)THEN6100
  171. 6040 IFA$=CHR$(20)THEN6080
  172. 6050 IFLEN(A$)>20THEN6020
  173. 6060 IF(ASC(A$)AND127)<32THEN6020
  174. 6070 PRINTA$;:I$=I$+A$:GOTO6010
  175. 6080 IFLEN(I$)=0THEN6020
  176. 6090 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO6010
  177. 6100 PRINT" ":RETURN
  178. 7000 REM GRAPHICS TERMINAL MODE
  179. 7005 PRINT"[147][199]RAPHICS [212]ERM"
  180. 7007 PRINT"[198]OR [195][205][194][194][211] AND OTHER GRAPHIC BOARDS"
  181. 7009 PRINT"[159][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  182. 7010 GET#5,A$:POKE212,0
  183. 7015 IFA$=""THEN7050
  184. 7017 IFA$=CHR$(13)ORA$=CHR$(141)THENPRINT"  ";
  185. 7020 PRINTA$;
  186. 7025 GOTO7010
  187. 7050 GETA$:PRINT" [146]";CHR$(157);:IFA$=""THEN7010
  188. 7051 PRINT#5,A$;
  189. 7052 POKE212,0
  190. 7053 IFA$=CHR$(13)ORA$=CHR$(141)THENPRINT"  ";
  191. 7060 IFA$=""THENGOTO40
  192. 7065 GOTO7010
  193.